home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / utilities / mpls_patch / install / uninstall_mpls_patch < prev   
Encoding:
Text File  |  1996-09-06  |  7.1 KB  |  354 lines
  1. ;
  2. ; $VER: MPLS Patch Uninstall v1.85 (27.08.96) Lejardinier Olivier
  3. ; Copyright © 1995-96 Lejardinier Olivier
  4. ; All Rights Reserved.
  5. ;
  6.  
  7. ;***************************************************************************;
  8.  
  9. ;
  10. ; English Texts
  11. ;
  12.  
  13. (set #choice-yes "Yes")
  14.  
  15. (set #choice-no "No")
  16.  
  17. (set #ask-remove
  18. (cat "\n"
  19.      "Are you sure to want to remove MPLS Patch ?"
  20. ))
  21.  
  22. (set #ask-quit
  23. (cat "\n"
  24.      "Please quit all MPLS Patch programs"
  25. ))
  26.  
  27. (set #ask-drawer-path
  28. (cat "\n"
  29.      "Where do you have installed 'MPLS_Patch' directory ?"
  30.      "\n"
  31. ))
  32.  
  33. (set #drawer-not-found
  34. (cat "\n"
  35.      "Selected directory does not contained 'MPLS_Patch' directory"
  36. ))
  37.  
  38. (set #ask-patch-path
  39. (cat "\n"
  40.      "Where do you have installed 'MPLS_Patch' program ?"
  41.      "\n"
  42. ))
  43.  
  44. (set #patch-not-found
  45. (cat "\n"
  46.      "Selected directory does not contained 'MPLS_Patch' program"
  47. ))
  48.  
  49. (set #ask-prefs-path
  50. (cat "\n"
  51.      "Where do you have installed 'MPLS_Patch_Prefs' program ?"
  52.      "\n"
  53. ))
  54.  
  55. (set #prefs-not-found
  56. (cat "\n"
  57.      "Selected directory does not contained 'MPLS_Patch_Prefs' program"
  58. ))
  59.  
  60. (set #removing-main-program
  61. (cat "\n"
  62.      "Removing main program :"
  63.      "\n\n"
  64.      "'%s'"
  65. ))
  66.  
  67. (set #removing-externals-modules
  68. (cat "\n"
  69.      "Removing externals modules :"
  70.      "\n\n"
  71.      "'LIBS:mpls_patch'"
  72. ))
  73.  
  74. (set #removing-configuration-file
  75. (cat "\n"
  76.      "Removing configuration file :"
  77.      "\n\n"
  78.      "'ENVARC:MPLS_Patch.Prefs'"
  79. ))
  80.  
  81. (set #removing-preferences-editor
  82. (cat "\n"
  83.      "Removing preferences editor :"
  84.      "\n\n"
  85.      "'%s'"
  86. ))
  87.  
  88. (set #removing-others-files
  89. (cat "\n"
  90.      "Removing docs, catalogs, etc.. :"
  91.      "\n\n"
  92.      "'%s'"
  93. ))
  94.  
  95. (set #remove-completed
  96. (cat "\n"
  97.      "Remove completed !"
  98. ))
  99.  
  100. (set #remove-aborted
  101. (cat "\n"
  102.      "Remove aborted !"
  103. ))
  104.  
  105. ;***************************************************************************;
  106.  
  107. ;
  108. ; French Texts
  109. ;
  110.  
  111. (if (= @language "français")
  112. (
  113.  
  114. (set #choice-yes "Oui")
  115.  
  116. (set #choice-no "Non")
  117.  
  118. (set #ask-remove
  119. (cat "\n"
  120.      "Etes-vous certain de vouloir retirer MPLS Patch ?"
  121. ))
  122.  
  123. (set #ask-quit
  124. (cat "\n"
  125.      "Quittez tous les programmes MPLS Patch, SVP"
  126. ))
  127.  
  128. (set #ask-drawer-path
  129. (cat "\n"
  130.      "Où avez-vous installé le répertoire 'MPLS_Patch' ?"
  131.      "\n"
  132. ))
  133.  
  134. (set #drawer-not-found
  135. (cat "\n"
  136.      "Le répertoire sélectionné ne contient pas le répertoire 'MPLS_Patch'"
  137. ))
  138.  
  139. (set #ask-patch-path
  140. (cat "\n"
  141.      "Où avez-vous installé le programme principal 'MPLS_Patch' ?"
  142.      "\n"
  143. ))
  144.  
  145. (set #patch-not-found
  146. (cat "\n"
  147.      "Le répertoire sélectionné ne contient pas le programme 'MPLS_Patch'"
  148. ))
  149.  
  150. (set #ask-prefs-path
  151. (cat "\n"
  152.      "Où avez-vous installé l'éditeur de préférences 'MPLS_Patch_Prefs' ?"
  153.      "\n"
  154. ))
  155.  
  156. (set #prefs-not-found
  157. (cat "\n"
  158.      "Le répertoire sélectionné ne contient pas l'éditeur de préférences 'MPLS_Patch_Prefs'"
  159. ))
  160.  
  161. (set #removing-main-program
  162. (cat "\n"
  163.      "Effacement du programme principal :"
  164.      "\n\n"
  165.      "'%s'"
  166. ))
  167.  
  168. (set #removing-externals-modules
  169. (cat "\n"
  170.      "Effacement des modules externes :"
  171.      "\n\n"
  172.      "'LIBS:mpls_patch'"
  173. ))
  174.  
  175. (set #removing-configuration-file
  176. (cat "\n"
  177.      "Effacement du fichier de configuration :"
  178.      "\n\n"
  179.      "'ENVARC:MPLS_Patch.Prefs'"
  180. ))
  181.  
  182. (set #removing-preferences-editor
  183. (cat "\n"
  184.      "Effacement de l'éditeur de préférences :"
  185.      "\n\n"
  186.      "'%s'"
  187. ))
  188.  
  189. (set #removing-others-files
  190. (cat "\n"
  191.      "Effacement des docs, catalogues, etc.. :"
  192.      "\n\n"
  193.      "'%s'"
  194. ))
  195.  
  196. (set #remove-completed
  197. (cat "\n"
  198.      "Procédure de désinstallation terminée !"
  199. ))
  200.  
  201. (set #remove-aborted
  202. (cat "\n"
  203.      "Procédure de désinstallation abandonnée !"
  204. ))
  205.  
  206. ))
  207.  
  208. ;***************************************************************************;
  209.  
  210.  (complete 0)
  211.  
  212.  (if (askbool
  213.       (prompt #ask-remove)
  214.       (help @askbool-help)
  215.       (choices #choice-yes
  216.                #choice-no
  217.       )
  218.      )
  219.  
  220. ;--------------------------------------------------------------------------;
  221.  
  222.   (
  223.    (if (exists "SYS:Tools/MPLS_Patch")
  224.     (set olddrawer-source "SYS:Tools")
  225.     (
  226.      (set olddrawer-source
  227.       (askdir
  228.        (prompt #ask-drawer-path)
  229.        (help @askdir-help)
  230.        (default "SYS:")
  231.       )
  232.      )
  233.  
  234.      (if (not (exists (tackon olddrawer-source "MPLS_Patch")))
  235.       (abort #drawer-not-found)
  236.      )
  237.  
  238.     )
  239.    )
  240.  
  241.    (complete 12)
  242.  
  243. ;--------------------------------------------------------------------------;
  244.  
  245.    (if (exists (tackon olddrawer-source "MPLS_Patch/MPLS_Patch"))
  246.     (set oldpatch-source (tackon olddrawer-source "MPLS_Patch"))
  247.   ;else
  248.     (if (exists "SYS:WBStartup/MPLS_Patch")
  249.      (set oldpatch-source "SYS:WBStartup")
  250.    ;else
  251.      (
  252.       (set oldpatch-source
  253.        (askdir
  254.         (prompt #ask-patch-path)
  255.         (help @askdir-help)
  256.         (default "SYS:")
  257.        )
  258.       )
  259.  
  260.       (if (not (exists (tackon oldpatch-source "MPLS_Patch")))
  261.        (abort #patch-not-found)
  262.       )
  263.  
  264.      )
  265.     )
  266.    )
  267.  
  268.    (complete 24)
  269.  
  270. ;--------------------------------------------------------------------------;
  271.  
  272.    (if (exists "SYS:Prefs/MPLS_Patch_Prefs")
  273.     (set oldprefs-source "SYS:Prefs")
  274.   ;else
  275.     (if (exists (tackon olddrawer-source "MPLS_Patch/MPLS_Patch_Prefs"))
  276.    ;else
  277.      (set oldprefs-source (tackon olddrawer-source "MPLS_Patch"))
  278.      (
  279.       (set oldprefs-source
  280.        (askdir
  281.         (prompt #ask-prefs-path)
  282.         (help @askdir-help)
  283.         (default "SYS:")
  284.        )
  285.       )
  286.  
  287.       (if (not (exists (tackon oldprefs-source "MPLS_Patch_Prefs")))
  288.        (abort #prefs-not-found)
  289.       )
  290.  
  291.      )
  292.     )
  293.    )
  294.  
  295.    (complete 48)
  296.  
  297. ;--------------------------------------------------------------------------;
  298.  
  299.    (while (run "/SignalPatch")
  300.     (message #ask-quit)
  301.    )
  302.  
  303.    (working (#removing-main-program oldpatch-source))
  304.  
  305.    (run ("C:Delete >NIL: \"%s\" FORCE QUIET" (tackon oldpatch-source "MPLS_Patch#?")))
  306.    (run "C:Delete >NIL: ENVARC:MPLS_Patch#?.#? FORCE QUIET")
  307.  
  308.    (complete 20)
  309.  
  310. ;--------------------------------------------------------------------------;
  311.  
  312.    (working #removing-externals-modules)
  313.  
  314.    (run "C:Delete >NIL: LIBS:mpls_patch ALL FORCE QUIET")
  315.  
  316.    (complete 40)
  317.  
  318. ;--------------------------------------------------------------------------;
  319.  
  320.    (working #removing-configuration-file)
  321.  
  322.    (run "C:Delete >NIL: ENVARC:MPLS_Patch#?.Prefs FORCE QUIET")
  323.  
  324.    (complete 60)
  325.  
  326. ;--------------------------------------------------------------------------;
  327.  
  328.    (working (#removing-preferences-editor (tackon oldprefs-source "MPLS_Patch_Prefs")))
  329.  
  330.    (run ("C:Delete >NIL: \"%s\" FORCE QUIET" (tackon oldprefs-source "MPLS_Patch_Prefs#?")))
  331.    (run "C:Delete >NIL: ENVARC:MUI/MPPREFS.#? FORCE QUIET")
  332.  
  333.    (complete 80)
  334.  
  335. ;--------------------------------------------------------------------------;
  336.  
  337.    (working (#removing-others-files (tackon olddrawer-source "MPLS_Patch")))
  338.  
  339.    (run "C:Delete >NIL: LOCALE:help/english/MPLS_Patch.Help FORCE QUIET")
  340.    (run "C:Delete >NIL: LOCALE:help/français/MPLS_Patch.Help FORCE QUIET")
  341.    (run "C:Delete >NIL: LOCALE:catalogs/français/mpls_patch ALL FORCE QUIET")
  342.    (run ("C:Delete >NIL: \"%s\" ALL FORCE QUIET" (tackon olddrawer-source "MPLS_Patch#?")))
  343.  
  344.    (complete 100)
  345.  
  346. ;--------------------------------------------------------------------------;
  347.  
  348.    (set @default-dest "")
  349.    (exit #remove-completed)
  350.   )
  351.   (abort #remove-aborted)
  352.  )
  353.  
  354.